home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / Packages / smarterSource.tcl < prev    next >
Encoding:
Text File  |  1997-10-08  |  4.3 KB  |  108 lines  |  [TEXT/ALFA]
  1. ## -*-Tcl-*- (install)
  2.  # ###################################################################
  3.  #  Vince's Additions - an extension package for Alpha
  4.  # 
  5.  #  FILE: "smarterSource.tcl"
  6.  #                                    created: 18/10/95 {6:00:07 pm} 
  7.  #                                last update: 8/10/97 {8:32:42 pm} 
  8.  #  
  9.  #  WARNING:  This file was recently fixed to implement the proper
  10.  #  behaviour of the 'source' command -- to source into the current
  11.  #  scope.  Previously this procedure would always source into the
  12.  #  global scope.  Scripts which relied on the old behaviour must be
  13.  #  fixed...  
  14.  #  
  15.  #  Files in PREFS are passed through unchanged.  Simplified proc.
  16.  #  Interacts ok with package rebuilding.
  17.  # ##################################################################
  18.  ##
  19.  
  20. ## 
  21.  # VMD May'95-Oct'97: <darley@fas.harvard.edu>
  22.  # 
  23.  # Changed default directory to    the    the    alpha preferences directory.
  24.  # Changed extension to    '+'    rather than    'bullet' (option-8)    because
  25.  # of ascii    transmission problems -    lots of    people have    a non-working
  26.  # version of this file.
  27.  # 
  28.  # Passes through 'tclIndex(x)' and 'prefs.tcl' unchanged.
  29.  # 
  30.  # Renamed this    file to    'smarterSource.tcl', originally    just to    differentiate
  31.  # it from the old crippled    versions.
  32.  # 
  33.  # IMPORTANT: Fixed    the    script so that it works    with path names    containing
  34.  # spaces.  Changed all 'uplevel #0' to 'uplevel 1'.  
  35.  # 
  36.  ##
  37.  
  38. #############################################################################
  39. # BASED UPON 'smartSource.tcl':
  40. #
  41. # Copyright 1994, Robert Browning (osiris@cs.utexas.edu): This code is made 
  42. # freely available to anyone who can find a use for it. Consider it part of my
  43. # thanks to all those who have contributed to the freeware and shareware base.
  44. # (Especially Pete Keheler, without which this code would be pretty useless).
  45. # 
  46. # === Modifications by Vince, May 1995 ===
  47. # 
  48. #############################################################################
  49.  
  50. alpha::extension smarterSource 0.1 {
  51. newPref folder tclExtensionsFolder "$PREFS"
  52. if {![string length [info commands dumbSource]]} {
  53.     rename source dumbSource
  54. }
  55. ;proc source {filename} {
  56.     global tclExtensionsFolder PREFS
  57.     set justName [file tail "$filename"]
  58.     # we don't want to over-ride these files
  59.     if { [lsearch -exact {tclIndex tclIndexx prefs.tcl} $justName] != -1 \
  60.       || [string match "${PREFS}:*${justName}" $filename] } {
  61.         return [uplevel 1 [list dumbSource $filename]] 
  62.     }
  63.     
  64.     set overrideFile "${tclExtensionsFolder}:${justName}"
  65.     if {[file exists $overrideFile]} {
  66.         set returnVal [uplevel 1 [list dumbSource $overrideFile]]
  67.     } else {
  68.         set returnVal [uplevel 1 [list dumbSource $filename]]
  69.     }
  70.         
  71.     set extensionFiles [glob -nocomplain \
  72.       "[file root $overrideFile]+*[file extension ${justName}]"]
  73.     
  74.     foreach extensionFile $extensionFiles {
  75.         set returnVal [uplevel 1 [list dumbSource $extensionFile]]
  76.     }
  77.     return "$returnVal" 
  78. }
  79. # end package block
  80. } help {
  81.     This package implements a replacement source command. It is intended to help
  82.     make the process of augmenting Alpha's code base with your own changes less
  83.     awkward, especially in the face of program updates. It also makes it so
  84.     that you no longer have to source files containing procedures that you want
  85.     to override in your UserStartup file.
  86.     
  87.     Basically, you designate a directory to contain your files. Then
  88.     any time Alpha is instructed to source a file named filename.tcl, it will
  89.     first look in the directory you have designated, and if there is a file of
  90.     the identical name there (i.e. filename.extension) it will source that file
  91.     instead of the original one specified. If there are any files named
  92.     filename+*.extension it will source those in the order returned by glob after
  93.     either the original filename.extension or the replacement has been sourced.
  94.     
  95.     For example, if your TclExtensions directory contains files named
  96.     latex+1.tcl and latex+2.tcl, then whenever you try to open a latex file
  97.     Alpha will first source the standard latex.tcl file, then latex+1.tcl, then
  98.     latex+2.tcl. If there was also a file named latex.tcl in the TclExtensions
  99.     directory then that file would be sourced in place of the standard
  100.     latex.tcl, then latex+1.tcl, then latex+2.tcl.
  101.     
  102.     You may just want to use filename+.extension for a single extension file.
  103.     
  104.     Note that latex+10.tcl would be sourced _before_ latex+9.tcl, so you
  105.     may wish to use latex+01.tcl ... latex+99.tcl to make things clearer.
  106. }
  107.  
  108.